home *** CD-ROM | disk | FTP | other *** search
/ New Star Software Collection / NSS_Collection.iso / 3-297 qmodem pro 102 / 1.ima / SCRIPT.ZIP / QMAIL.SCR < prev    next >
Encoding:
Text File  |  1993-03-03  |  3.7 KB  |  91 lines
  1. ; This script is designed to logon to a BBS using the Qmail door, enter
  2. ; Qmail, download a mail packet and then upload any waiting reply packets.
  3. ; Since PC-Board systems can change the name of the Qmail door (i.e One
  4. ; BBS may call it QM and another Qmail) a string has been added to the
  5. ; beginning of the script called MailDoor, before you run the script be sure
  6. ; to enter the name of the Qmail Door in the Quotes. In the example
  7. ; you will note that the name Qmail4 is used followed by ^M for pressing
  8. ; ENTER. Leave the ^M for enter in your quoted string!
  9. ;
  10. ; To operate properly you must enter your name and password in the
  11. ; QmodemPro phonebook entry.
  12. ;
  13. ;
  14. TurnON   8_BIT                      ; These Are Our Terminal Settings
  15. TurnOFF  LINEFEED                   ; For This Session
  16. TurnOFF  XON/XOFF
  17. TurnON   NOISE
  18. TurnOFF  MUSIC
  19. TurnON   SCROLL
  20. TurnOFF  PRINT
  21. TurnOFF  SPLIT
  22. TurnON   STATUSLN
  23. TurnOFF  DOORWAY
  24.  
  25. STRING   MailDoor
  26.                                     ;************************************
  27. Assign   MailDoor  "Qmail4^M"       ; The Name Of The QMail Door For This
  28.                                     ; PC-Board, change As Needed
  29. TimeOut  45
  30.  
  31. When     "Languages Avail" "1^M"    ; This is For PC-Boards That Support
  32.                                     ; Multi Languages, 1 Should Be The
  33.                                     ; English Default.
  34.  
  35. When     "this correct" "Y^M"       ; In Case It Verifies Your UserName
  36. When     "More?" "n^M"              ; In Case Of More? Prompts
  37. When     "(Enter)" "^M"             ; In Case Of Enter To Continue Prompts
  38. When     "graphics (" "N^M"         ; In Case Of Graphics Prompts
  39.  
  40. WaitFor  "first name"               ; Waiting For First Name Prompt
  41. Delay    100
  42. Send     "$USERID^M"                ; Send Accounts UserId Name
  43.  
  44. Waitfor  "Password"                 ; Waiting For Password Prompt
  45. Delay    100
  46. Send     "$PASSWORD^M"              ; Send Account Password
  47.  
  48. WaitFor  "Board Command"            ; Waiting For Main Menu Command
  49. Delay    100
  50. Send     "$MailDoor"                ; Send QMail Command
  51.  
  52. WaitFor  "Qmail Command"            ; Wait For Qmail Prompt
  53.  
  54. If $GETMAIL DOWNLOADMAIL            ; If We Are Getting Mail
  55. DOWNFINISHED:
  56.  
  57. IF $SENDMAIL UPLOADMAIL             ; If We Are Sending Mail
  58.  
  59. UPSUCCESS:
  60. TimeOut  30 EXITSYSTEM              ; Reset Timeout
  61. DELETEF  $REPPATH$PACKET.REP        ; Delete .REP Packet
  62. WaitFor  "Qmail Command"            ; WaitFor Qmail Command
  63. Delay    100
  64. Send     "G^M"                      ; Send Logoff Command
  65. Exit
  66.  
  67. UPLOADMAIL:                         ; Upload Qwk Mail Routine
  68. TimeOut  60                         ; Reset Our TimeOut
  69. Delay    100
  70. Send     "U^M"                      ; Send Upload Command
  71. WaitFor  "to upload"                ; Wait For Upload Prompt
  72. Delay    500
  73. UPLOAD Z $REPPATH$PACKET.REP        ; Start Upload Of .REP Packet
  74. IF $SUCCESS UPSUCCESS               ; If Succesful then Goto UPSUCCESS
  75. GOTO UPLOADMAIL                     ; If Not Try Again
  76.  
  77.  
  78. DOWNLOADMAIL:                       ; Download Qwk Mail Routine
  79. When     "no messages" DOWNFINISHED ; If No Messages Then Exit Routine
  80. TimeOut  500                        ; Set Timeout For Message Searches
  81. Delay    100
  82. Send     "D^M"                      ; Send Download Messages Command
  83. WaitFor  "messages (Y"              ; Wait For Recieve Prompt
  84. Delay    100
  85. Send     "Y^M"                      ; Send Start QWK Compression Command
  86. WaitFor  "to download"              ; Wait For Download Start Prompt
  87. Delay    100
  88. DOWNLOAD Z $QWKPATH                 ; Download QWK Mail
  89. IF $SUCCESS DOWNFINISHED            ; If Successful Goto DOWNFINISHED
  90. GOTO DOWNLOADMAIL                   ; If Not Try Again
  91.